CAAPlanetPerihelionAphelion_MercuryAphelion <-
function(k){
.Call("CAAPlanetPerihelionAphelion_MercuryAphelion", k)
}
